How-To Delphi (standard) (exstatusbar)

How do I change the control's border, using your EBN files

with StatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSTATUSBARLib_TLB.AppearanceEnum($1000000);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end

How do I remove the control's border

with StatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib_TLB.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end

How can I change the control's font

with StatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	BackColorPanels := $5000000;
	f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
	with f do
	begin
		Name := 'Verdana';
		Size := 12;
	end;
	Font := (IUnknown(f) as stdole_TLB.StdFont);
	Format := '"static text"[fg=255][a=17],11,22,(33/44)';
	EndUpdate();
end